Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/peep-drv.sc

Text File | 1993-07-16 | 7KB | 1 lines

(dependencies (standard0 list-fns stream peephole instruct) names (peep-drv) length 1427 nslots 7 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 110)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 6)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 40)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 4)) (5 (%%-me-local--%% . optimize-lst)) (3 0) (39) (8 0) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 5)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 875)) (11) (4 (%%-static-%% . 2)) (5 (%%-big-arg-%% 0)) (39) (51 2) (7 (%%-me-local--%% . optimize-lst)) (36 (%%-big-arg-%% 818)) (11) (4 (%%-static-%% . 2)) (6 1) (39) (51 2) (7 (%%-me-local--%% . make-peep-stream)) (36 (%%-big-arg-%% 539)) (11) (4 (%%-static-%% . 2)) (6 2) (39) (51 2) (7 (%%-me-local--%% . extend-conts)) (36 (%%-big-arg-%% 480)) (11) (4 (%%-static-%% . 2)) (6 3) (39) (51 2) (7 (%%-me-local--%% . make-new-cont)) (36 (%%-big-arg-%% 186)) (11) (4 (%%-static-%% . 2)) (6 4) (39) (51 1) (7 (%%-me-local--%% . make-prev-code)) (36 (%%-big-arg-%% 96)) (11) (4 (%%-static-%% . 2)) (6 5) (39) (51 1) (7 (%%-me-local--%% . score-code)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 2)) (6 6) (39) (51 1) (7 (%%-me-local--%% . micro-optimise)) (18) (3 1) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% peephole . micro-test)) (8 4) (10) (34 1) (9) (26) (42) (32 (%%-big-arg-%% 8)) (17 2) (37) (1 (%%-link-me-%% extras0 . caar)) (10) (26) (14 5 2) (16) (9) (13 3) (34 1) (1 (%%-link-me-%% list-fns . fold)) (36 (%%-big-arg-%% 23)) (12) (40 2) (12) (4 (%%-static-%% . 3)) (12) (14 7 4) (9) (13 5) (34 3) (1 (%%-link-me-%% arith . +)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% instruct . i-cost)) (8 6) (10) (34 1) (12) (14 6 3) (3 0) (62 -3) (37) (10) (27) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . score-code)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caar)) (8 8) (10) (34 1) (3 0) (31 (%%-big-arg-%% -102)) (36 (%%-big-arg-%% 55)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caar)) (8 9) (10) (34 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . cadar)) (8 10) (10) (34 1) (11) (34 2) (14 5 3) (3 0) (31 (%%-big-arg-%% 5)) (12) (42) (32 (%%-big-arg-%% 24)) (1 (%%-link-me-%% gens . reverse)) (11) (14 6 2) (16) (9) (13 3) (33 1) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . score-code)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caar)) (8 9) (10) (34 1) (3 0) (31 (%%-big-arg-%% -229)) (1 (%%-link-me-%% arith . <)) (8 4) (11) (3 0) (39) (62 -2) (32 (%%-big-arg-%% 22)) (8 4) (27) (8 4) (8 4) (14 8 3) (3 0) (31 (%%-big-arg-%% -96)) (8 4) (27) (10) (36 (%%-big-arg-%% 55)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caar)) (8 12) (10) (34 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . cadar)) (8 13) (10) (34 1) (11) (34 2) (14 8 3) (3 0) (31 (%%-big-arg-%% -165)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% peephole . peep-test)) (8 5) (10) (34 1) (9) (26) (12) (3 0) (39) (9) (12) (27) (3 0) (39) (29) (18) (14 6 2) (39) (37) (22 1) (11) (20 0 0) (36 (%%-big-arg-%% 20)) (3 0) (8 4) (3 0) (3 0) (8 6) (31 (%%-big-arg-%% 8)) (15 4) (37) (22 1) (12) (20 0 0) (9) (19 0 0) (42) (32 (%%-big-arg-%% 12)) (11) (11) (14 6 2) (39) (37) (36 (%%-big-arg-%% 34)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% extras0 . cadar)) (8 5) (19 0 0) (10) (34 1) (12) (19 1 0) (10) (33 1) (10) (19 0 0) (27) (36 (%%-big-arg-%% 50)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 31)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 86)) (8 10) (40 1) (8 8) (26) (3 0) (12) (34 -3) (8 8) (11) (34 2) (11) (27) (42) (32 (%%-big-arg-%% 12)) (8 4) (31 (%%-big-arg-%% 42)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% extras0 . caar)) (8 6) (19 0 0) (10) (34 1) (3 0) (39) (9) (8 4) (27) (3 0) (39) (29) (18) (8 5) (39) (8 4) (21 1) (14 9 4) (31 (%%-big-arg-%% -171)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% gens . reverse)) (8 4) (10) (33 1) (3 0) (39) (9) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% extras0 . caar)) (8 5) (19 0 0) (10) (34 1) (3 0) (39) (29) (18) (15 3) (37) (10) (32 (%%-big-arg-%% 29)) (1 (%%-link-me-%% stream . make-filter-stream)) (12) (4 (%%-me-local--%% . micro-optimise)) (11) (14 7 3) (9) (13 4) (34 2) (17 2) (37) (22 1) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% stream . make-simple-stream)) (9) (34 0) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . make-peep-stream)) (12) (8 6) (3 0) (31 (%%-big-arg-%% -67)) (11) (16) (20 0 0) (18) (36 (%%-big-arg-%% 16)) (3 0) (8 6) (8 5) (31 (%%-big-arg-%% 37)) (18) (1 (%%-link-me-%% extras0 . convert)) (11) (19 0 0) (1 (%%-link-me-%% standard0 . pair)) (11) (14 8 3) (9) (13 4) (34 2) (10) (42) (32 (%%-big-arg-%% 10)) (17 2) (3 0) (37) (36 (%%-big-arg-%% 20)) (3 0) (3 0) (8 5) (3 0) (8 6) (31 (%%-big-arg-%% 93)) (9) (26) (4 (%%-static-%% . 0)) (43) (32 (%%-big-arg-%% 69)) (36 (%%-big-arg-%% 37)) (1 (%%-link-me-%% stream . write-stream-list)) (8 4) (19 0 0) (1 (%%-link-me-%% lists . nreverse)) (8 5) (27) (26) (62 1) (11) (33 2) (18) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% extras0 . caddr)) (12) (10) (34 1) (13 3) (18) (31 (%%-big-arg-%% -104)) (9) (27) (26) (13 3) (18) (31 (%%-big-arg-%% -115)) (11) (42) (32 (%%-big-arg-%% 29)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (12) (3 0) (39) (29) (8 4) (3 0) (39) (29) (18) (15 5) (37) (36 (%%-big-arg-%% 43)) (4 (%%-me-local--%% . extend-conts)) (8 5) (26) (8 5) (3 0) (39) (9) (1 (%%-link-me-%% peephole . peep-test)) (3 0) (39) (29) (18) (8 8) (39) (11) (26) (31 (%%-big-arg-%% -573)) (36 (%%-big-arg-%% 20)) (1 (%%-link-me-%% boot . not)) (12) (26) (42) (10) (34 1) (32 (%%-big-arg-%% 62)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (36 (%%-big-arg-%% 40)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . make-prev-code)) (8 8) (26) (3 0) (31 (%%-big-arg-%% -952)) (8 9) (27) (11) (34 2) (3 0) (39) (29) (18) (15 6) (37) (9) (27) (42) (32 (%%-big-arg-%% 35)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (8 5) (26) (8 5) (39) (3 0) (39) (29) (8 5) (27) (3 0) (39) (29) (18) (15 6) (37) (9) (27) (8 4) (27) (8 5) (26) (8 5) (39) (8 4) (14 9 4) (31 (%%-big-arg-%% -210))) statics (no-change new peep-drv 0 (optimize-lst) ((strip (union (import standard0) (import list-fns) (import stream) (import peephole) (import instruct))) optimize-lst) peep-drv))